-- card: 2955 from stack: in.0 -- bmap block id: 3456 -- flags: 4000 -- background id: 2767 -- name: main ----- HyperTalk script ----- On mouseDown put the short id of the target into theID if theID < 96 or theID > 116 or "button" is not in the name of the target or the hilite of cd btn "label above command" is true then exit mouseDown put lineSelected(theID) into theLINEselected if line theLINEselected of cd field "survey" is empty then exit mouseDown If cd fld id 99 is not empty then Set the hilite of cd btn id (item 1 of cd fld id 99) to false End if Put theID into cd fld id 99 put theLINEselected into item 2 of cd field id 99 Set the hilite of the target to true End mouseDown on mouseUp if the optionKey is down then put line 3 of cd field "action" into toDO if toDO is in "Add,Insert,Replace,Edit,Delete,Label Above Command" then domenu toDO end if put the short id of the target into theID if the number of this cd is 1 then if the mouse is down and (theID > 95 and theID < 117) and the hilite of cd btn "label above command" is false then domenu "edit" end if end mouseUp Function lineSelected btnID return (trunc(((scroll of cd field "survey") + (item two of the loc of btn id btnID) - (item two of the rect of cd field "survey")) div the textheight of cd field "survey") + one) end lineSelected -- part 1 (field) -- low flags: 01 -- high flags: 0007 -- rect: left=1 top=39 right=341 bottom=511 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 9 -- style flags: 8192 -- line height: 15 -- part name: survey ----- HyperTalk script ----- on mouseWithin put cd field "hilite btn" into btnID if btnID ≠ "" then set the hilite of cd btn id (item 1 of cd field "hilite btn") to false end if put "" into cd field "hilite btn" pass mouseWithin end mouseWithin -- part 54 (field) -- low flags: 81 -- high flags: 0002 -- rect: left=445 top=5 right=43 bottom=510 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 3 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: action ----- HyperTalk script ----- on mouseup hide me end mouseup -- part 61 (field) -- low flags: 81 -- high flags: 0002 -- rect: left=172 top=146 right=196 bottom=352 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 20 -- part name: wait ----- HyperTalk script ----- on mouseUp hide me end mouseUp on mouseWithin mouseUp end mouseWithin -- part 68 (button) -- low flags: 00 -- high flags: 8004 -- rect: left=68 top=1 right=20 bottom=163 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Commands ----- HyperTalk script ----- on mouseDown set the hilite of me to true set cursor to arrow put "Add,(Insert,(Replace,(Edit,(Delete,(-,Label Above Command" into CommandsMenu if the hilite of cd btn "label above command" is false then put "Add,Insert,Replace,Edit,Delete,(-,Label Above Command" into CommandsMenu else put "Add,(Insert,(Replace,(Edit,(Delete,(-,!⇧Label Above Command" into CommandsMenu end if put PopUpMenu (CommandsMenu,"",69,20) into theITEM set the hilite of me to false if theITEM = 0 then exit mouseDown if char 1 of item theITEM of commandsMenu = "!" then delete char 1 to 2 of item theITEM of commandsMenu end if put item theITEM of commandsMenu into line 3 of cd field "action" domenu (item theITEM of CommandsMenu) end mouseDown -- part 63 (button) -- low flags: 80 -- high flags: E005 -- rect: left=360 top=4 right=18 bottom=511 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 8192 -- line height: 16 -- part name: Label Above Command ----- HyperTalk script ----- on mouseUp set cursor to watch label_above end mouseUp -- part 67 (button) -- low flags: 00 -- high flags: 8004 -- rect: left=1 top=1 right=20 bottom=67 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Editor ----- HyperTalk script ----- on mouseDown set the hilite of me to true set cursor to arrow if the hilite of cd btn "label above command" is false then put "About...,(-,New,Open...,(-,Save,Save As...,Revert,(-,Print...," & "Print Code...,(-,Show All Code,Show Code of a Line...,(-,Home" into EditorMenu else put "About...,(-,New,Open...,(-,Save,Save As...,Revert,(-,Print...," & "Print Code...,(-,Show All Code,(Show Code of a Line...,(-,Home" into EditorMenu end if put PopUpMenu (EditorMenu,"",2,19) into theITEM set the hilite of me to false if theITEM = 0 then exit mouseDown else domenu (item theITEM of EditorMenu) end if end mouseDown -- part 72 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=10 top=25 right=37 bottom=22 -- title width / last selected line: 0 -- icon id / first selected line: 21000 / 21000 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: home ----- HyperTalk script ----- on mouseUp set the icon of me to 21000 go home end mouseUp on mouseDown set the icon of me to 20000 end mouseDown on mouseLeave set the icon of me to 21000 end mouseLeave -- part 73 (field) -- low flags: 01 -- high flags: 0001 -- rect: left=221 top=22 right=39 bottom=295 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: file -- part 75 (field) -- low flags: 81 -- high flags: 0002 -- rect: left=163 top=146 right=196 bottom=359 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 20 -- part name: wait2 ----- HyperTalk script ----- on mouseUp hide me end mouseUp on mouseWithin mouseUp end mouseWithin -- part 77 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=165 top=2 right=19 bottom=353 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 3 -- text size: 9 -- style flags: 16640 -- line height: 12 -- part name: 1990 Pierrot Vachon ----- HyperTalk script ----- on mouseUp domenu "about..." end mouseUp -- part 96 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=2 top=40 right=55 bottom=494 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: -- part 122 (field) -- low flags: 81 -- high flags: 0002 -- rect: left=1 top=21 right=40 bottom=511 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: header ----- HyperTalk script ----- on mouseUp lock screen hide me hide cd field "command # list" hide cd field "commandlist" hide cd field id 87 hide cd field id 86 end mouseUp -- part 97 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=2 top=55 right=70 bottom=494 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: -- part 98 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=2 top=70 right=85 bottom=494 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: -- part 99 (field) -- low flags: 81 -- high flags: 0002 -- rect: left=460 top=24 right=38 bottom=509 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 3 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: hilite btn ----- HyperTalk script ----- on mouseUp hide me end mouseup -- part 100 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=2 top=85 right=100 bottom=494 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: -- part 101 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=2 top=100 right=115 bottom=494 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: -- part 125 (button) -- low flags: 00 -- high flags: A004 -- rect: left=355 top=1 right=20 bottom=511 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Window Font ----- HyperTalk script ----- on mouseDown set the hilite of me to true set cursor to arrow if "condense" is not in the textStyle of cd field "survey" then put "Change...,(-,Condense" into Menu else put "Change...,(-,!⇧Condense" into Menu end if put PopUpMenu (Menu,"",item 1 of the rect of me+1, item 4 of the rect of me) into theITEM set the hilite of me to false if theITEM = 0 then exit mouseDown if theITEM = 1 then changeFont else toggleCondense end mouseDown on changeFont set cursor to watch show cd field id 123 lock screen choose field tool click at the loc of cd field "survey" domenu "text Style..." hide cd field id 123 choose browse tool set the textHeight of cd field "survey" to 15 set the scroll of cd field "survey" to 0 end changeFont on toggleCondense if "condense" is in the textStyle of cd field "survey" then set the textStyle of cd field "survey" to "plain" else set the textStyle of cd field "survey" to "condense" end if end toggleCondense -- part 102 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=2 top=115 right=130 bottom=494 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: -- part 86 (field) -- low flags: 80 -- high flags: 0002 -- rect: left=485 top=1 right=20 bottom=511 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 4 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: command number ----- HyperTalk script ----- on enterInField returnInField end enterInField on returnInField set cursor to watch lock screen hide cd field "commandLIST" hide me hide cd field "label command number" hide cd field "header" hide cd field "command # list" put me+1 into theLINE if theLINE < 0 or theLINE > 46 then answer "Sorry, not a valid command number." exit returnInField end if put line 1 of cd field "action" into action if action = "insert" or action ="replace" then if action = "insert" then put "Please, Click on the line you want "& "to Insert before..." into cd field "action msg" else put "Please, Click on the line you want "& "to Replace." into cd field "action msg" end if show cd field "action msg" unlock screen with dissolve set cursor to plus wait until the mouseClick put the clickLoc into clicklic hide cd field "action msg" if clicklic is not within the rect of cd field "survey" then exit returnInField put theLineClicked(clickLic) into thLine if thLine > number of lines in cd field "survey" then exit returnInField put thLine into line 2 of cd field "action" end if Command theLINE-1,line theLINE of cd field "commandLIST" end returnInField -- part 103 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=2 top=130 right=145 bottom=494 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: -- part 104 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=2 top=145 right=160 bottom=494 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: -- part 87 (field) -- low flags: 81 -- high flags: 0002 -- rect: left=355 top=1 right=20 bottom=486 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: label command number ----- HyperTalk script ----- on mouseUp send "returnInField" to cd field "command number" end mouseUp -- part 105 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=2 top=160 right=175 bottom=494 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: -- part 106 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=2 top=175 right=190 bottom=494 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: -- part 107 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=2 top=190 right=205 bottom=494 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: -- part 108 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=2 top=205 right=220 bottom=494 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 3 -- text size: 9 -- style flags: 8192 -- line height: 12 -- part name: -- part 109 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=2 top=220 right=235 bottom=494 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: -- part 110 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=2 top=235 right=250 bottom=494 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: -- part 111 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=2 top=250 right=265 bottom=494 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: -- part 112 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=2 top=265 right=280 bottom=494 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: -- part 113 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=2 top=280 right=295 bottom=494 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: -- part 114 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=2 top=295 right=310 bottom=494 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: -- part 115 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=2 top=310 right=325 bottom=494 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: -- part 116 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=2 top=325 right=340 bottom=494 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: -- part 78 (field) -- low flags: 81 -- high flags: 0004 -- rect: left=141 top=134 right=191 bottom=383 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 4 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: command selected ----- HyperTalk script ----- on mouseWithin send mouseUp to cd btn "cancel" end mouseWithin -- part 93 (button) -- low flags: 80 -- high flags: A004 -- rect: left=141 top=188 right=210 bottom=263 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Yes ----- HyperTalk script ----- on mouseUp lock screen hide cd btn id 79 hide cd btn id 94 hide cd field id 78 hide me end mouseUp -- part 94 (button) -- low flags: 80 -- high flags: A004 -- rect: left=260 top=188 right=210 bottom=383 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Cancel ----- HyperTalk script ----- on mouseUp lock screen hide cd btn id 79 hide cd btn id 93 hide cd field id 78 hide me end mouseUp -- part 90 (field) -- low flags: 81 -- high flags: 0007 -- rect: left=1 top=38 right=341 bottom=42 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 3 -- text size: 9 -- style flags: 256 -- line height: 18 -- part name: command # list ----- HyperTalk script ----- on mouseUp send "mouseup" to cd field id 31 end mouseUp -- part 31 (field) -- low flags: 81 -- high flags: 0007 -- rect: left=24 top=38 right=341 bottom=511 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 9 -- style flags: 0 -- line height: 18 -- part name: commandLIST ----- HyperTalk script ----- on mouseUP set cursor to watch lock screen hide me hide cd field "command # list" hide cd field "command number" hide cd field "label command number" hide cd field "header" put lineClicked() into theLINE put line 1 of cd field "action" into action if action = "insert" or action ="replace" then put item 2 of cd field id 99 into line 2 of cd field "action" end if Command theLINE-1,line theLINE of me end mouseUp on mouseWithin set the scroll of cd field "command # list" to the scroll of me pass mouseWithin end mouseWithin -- part 79 (button) -- low flags: 80 -- high flags: C002 -- rect: left=141 top=116 right=137 bottom=383 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Delete this command? ----- HyperTalk script ----- on mouseWithin send mouseUp to cd btn "cancel" end mouseWithin -- part 123 (field) -- low flags: 81 -- high flags: 0002 -- rect: left=60 top=272 right=324 bottom=452 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: ----- HyperTalk script ----- on mouseWithin hide me end mouseWithin -- part contents for card part 31 ----- text ----- Change all characters in user's last response to UPPER case. Display the string of characters... Branch immediatly... If last input contains the characters, branch to... If last input was empty, branch to... Write last input to the scratch file Append entire scratch file to the end of the response file. Stop execution of the survey file and return to the last Red Ryder Host menu. Clear out the scratch file and start the survey file over from the first command. Get alphanumeric input from the user... Get alphanumeric input from the user but accepts only the characters "Y" ,"y","N" and "n". Get a carriage return as input from the user... Write strings of characters to the scratch file, with a terminating carriage return. Write strings of characters to the scratch file, with no terminating carriage return. Raise current caller's time limit for this call only... Raise the current caller's time limit permanently... Set the caller's clearance level for this call only... Set the caller's clearance level permanently... Stop execution of the survey file and return to the Red Ryder Host menu... Write the value of the ASCII character x to the response file... Clear out the scratch file and immediately branches to the command name... If the user's D/U ratio (in files) is less than number x, branch to the command... Temporarily sets the current caller's restriction flag number x. Permanently sets the current caller's restriction flag number x. Temporarily resets the current caller's restriction flag number x. Permanently resets the current caller's restriction flag number x. Display TEXT file. Cancellable (CTRL-C), no prompts... Display TEXT file. Cancellable, all prompts... Display TEXT file. Not cancellable, all prompts... Display TEXT file. Not cancellable, user can pause, resume or cancel but no prompts occur... Create a Special Scratch File and allocate x accumulators... Add the number x to the Scratch File accumulator number y... Add the contents of the Scratch File accumulator number x to Scratch File acc. number y... Display the string equivalent to Special Scratch File accumulator number x with a CR... Display the string equivalent of the .CNT file accumulator number x with a CR... Display the string equivalent to Special Scratch File accumulator number x with no CR... Display the string equivalent of the .CNT file accumulator number x with no CR... Open the .CNT file and add all the values of the accumulators to those in the .CNT file... Write the current caller's name to the end of the .CNT file Branch to a survey if current caller's name appears anywhere in the .CNT file... Set the value of the Special Scratch File accumulator to a number x... Display the percentage that .CNT file accumulator x is of .CNT file acc. y with a CR... Display the percentage that .CNT file accumulator x is of .CNT file acc. y with no CR... Write the caller's last input to the scratch file with no carriage return. Append entire scratch file to the end of the response file without a 'header'. Append to the .RES file the "Above entries made by: user/date" with no carriage return Append to the .RES file the "user/date" with no carriage return -- part contents for card part 54 ----- text ----- Add 3 Add -- part contents for card part 61 ----- text ----- Please wait... Verbose in process. -- part contents for card part 73 ----- text ----- Untitled 100 meg:test -- part contents for card part 75 ----- text ----- Please Wait... Changing label position -- part contents for card part 78 ----- text ----- If last input contains “asdfasdf”, branch to “” • TEST •• TEST • -- part contents for card part 87 ----- text ----- Enter Command # -- part contents for card part 90 ----- text ----- 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 -- part contents for card part 122 ----- text ----- Action selected was “Add”. Click on a line or click here to cancel. -- part contents for card part 123 ----- text ----- Select the font name and size. Warning: A line width must not exceed the width of the main window!!